home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / kcl.lha / cmpnew / cmpopt.lsp < prev    next >
Text File  |  1986-03-18  |  24KB  |  472 lines
  1.  
  2. (in-package 'compiler)
  3.  
  4.  
  5. (push '((t) boolean nil nil "#0==Cnil") (get 'null 'inline-always))
  6. (push '((t) boolean nil nil "type_of(#0)==t_symbol")
  7.       (get 'symbolp 'inline-always))
  8. (push '((t) boolean nil nil "type_of(#0)!=t_cons")
  9.       (get 'atom 'inline-always))
  10. (push '((t) boolean nil nil "type_of(#0)==t_cons")
  11.       (get 'consp 'inline-always))
  12. (push '((t) boolean nil nil "@0;type_of(#0)==t_cons||#0==Cnil")
  13.       (get 'listp 'inline-always))
  14. (push '((t) boolean nil nil
  15.         "@0;type_of(#0)==t_fixnum||
  16. type_of(#0)==t_bignum||
  17. type_of(#0)==t_ratio||
  18. type_of(#0)==t_shortfloat||
  19. type_of(#0)==t_longfloat||
  20. type_of(#0)==t_complex")
  21.       (get 'numberp 'inline-always))
  22. (push '((t) boolean nil nil
  23.         "@0;type_of(#0)==t_fixnum||type_of(#0)==t_bignum")
  24.       (get 'integerp 'inline-always))
  25. (push '((t) boolean nil nil
  26.         "@0;type_of(#0)==t_shortfloat||type_of(#0)==t_longfloat")
  27.       (get 'floatp 'inline-always))
  28. (push '((t) boolean nil nil "type_of(#0)==t_character")
  29.       (get 'characterp 'inline-always))
  30. (push '((t) boolean nil nil "type_of(#0)==t_string")
  31.       (get 'stringp 'inline-always))
  32. (push '((t) boolean nil nil
  33.         "@0;type_of(#0)==t_vector||
  34. type_of(#0)==t_string||
  35. type_of(#0)==t_bitvector")
  36.       (get 'vectorp 'inline-always))
  37. (push '((t) boolean nil nil
  38.         "@0;type_of(#0)==t_array||
  39. type_of(#0)==t_vector||
  40. type_of(#0)==t_string||
  41. type_of(#0)==t_bitvector")
  42.       (get 'arrayp 'inline-always))
  43. (push '((t) boolean nil nil
  44.         "@0;(type_of(#0)==t_symbol&&(#0)->s.s_hpack==keyword_package)")
  45.       (get 'keywordp 'inline-always))
  46. (push '((t t) boolean nil nil "#0==#1") (get 'eq 'inline-always))
  47. (push '((fixnum fixnum) boolean nil nil "0") (get 'eq 'inline-always))
  48. (push '((t t) boolean nil nil "eql(#0,#1)") (get 'eql 'inline-always))
  49. (push '((fixnum fixnum) boolean nil nil "(#0)==(#1)")
  50.       (get 'eql 'inline-always))
  51. (push '((t t) boolean nil nil "equal(#0,#1)")
  52.       (get 'equal 'inline-always))
  53. (push '((fixnum fixnum) boolean nil nil "(#0)==(#1)")
  54.       (get 'equal 'inline-always))
  55. (push '((t t) boolean nil nil "equalp(#0,#1)")
  56.       (get 'equalp 'inline-always))
  57. (push '((fixnum fixnum) boolean nil nil "(#0)==(#1)")
  58.       (get 'equalp 'inline-always))
  59. (push '((t) boolean nil nil "endp(#0)") (get 'endp 'inline-safe))
  60. (push '((t) boolean nil nil "#0==Cnil") (get 'endp 'inline-unsafe))
  61. (push '((t) boolean nil nil "(#0)->s.s_dbind!=OBJNULL")
  62.       (get 'boundp 'inline-unsafe))
  63. (push '((t) boolean nil nil "(#0)==Cnil") (get 'not 'inline-always))
  64. (push '((character) fixnum nil nil "#0")
  65.       (get 'char-code 'inline-always))
  66. (push '((fixnum) character nil nil "#0")
  67.       (get 'code-char 'inline-always))
  68. (push '((fixnum-float) long-float nil nil "((longfloat)(#0))")
  69.       (get 'float 'inline-always))
  70. (push '((fixnum-float) short-float nil nil "((shortfloat)(#0))")
  71.       (get 'float 'inline-always))
  72. (push '((t) t nil t "coerce_to_string(#0)")
  73.       (get 'string 'inline-always))
  74. (push '((fixnum-float) fixnum nil nil "(fixnum)(#0)")
  75.       (get 'truncate 'inline-always))
  76. (push '((t) t nil nil "car(#0)") (get 'car 'inline-safe))
  77. (push '((t) t nil nil "cdr(#0)") (get 'cdr 'inline-safe))
  78. (push '((t) t nil nil "caar(#0)") (get 'caar 'inline-safe))
  79. (push '((t) t nil nil "cadr(#0)") (get 'cadr 'inline-safe))
  80. (push '((t) t nil nil "cdar(#0)") (get 'cdar 'inline-safe))
  81. (push '((t) t nil nil "cddr(#0)") (get 'cddr 'inline-safe))
  82. (push '((t) t nil nil "caaar(#0)") (get 'caaar 'inline-safe))
  83. (push '((t) t nil nil "caadr(#0)") (get 'caadr 'inline-safe))
  84. (push '((t) t nil nil "cadar(#0)") (get 'cadar 'inline-safe))
  85. (push '((t) t nil nil "caddr(#0)") (get 'caddr 'inline-safe))
  86. (push '((t) t nil nil "cdaar(#0)") (get 'cdaar 'inline-safe))
  87. (push '((t) t nil nil "cdadr(#0)") (get 'cdadr 'inline-safe))
  88. (push '((t) t nil nil "cddar(#0)") (get 'cddar 'inline-safe))
  89. (push '((t) t nil nil "cdddr(#0)") (get 'cdddr 'inline-safe))
  90. (push '((t) t nil nil "caaaar(#0)") (get 'caaaar 'inline-safe))
  91. (push '((t) t nil nil "caaadr(#0)") (get 'caaadr 'inline-safe))
  92. (push '((t) t nil nil "caadar(#0)") (get 'caadar 'inline-safe))
  93. (push '((t) t nil nil "caaddr(#0)") (get 'caaddr 'inline-safe))
  94. (push '((t) t nil nil "cadaar(#0)") (get 'cadaar 'inline-safe))
  95. (push '((t) t nil nil "cadadr(#0)") (get 'cadadr 'inline-safe))
  96. (push '((t) t nil nil "caddar(#0)") (get 'caddar 'inline-safe))
  97. (push '((t) t nil nil "cadddr(#0)") (get 'cadddr 'inline-safe))
  98. (push '((t) t nil nil "cdaaar(#0)") (get 'cdaaar 'inline-safe))
  99. (push '((t) t nil nil "cdaadr(#0)") (get 'cdaadr 'inline-safe))
  100. (push '((t) t nil nil "cdadar(#0)") (get 'cdadar 'inline-safe))
  101. (push '((t) t nil nil "cdaddr(#0)") (get 'cdaddr 'inline-safe))
  102. (push '((t) t nil nil "cddaar(#0)") (get 'cddaar 'inline-safe))
  103. (push '((t) t nil nil "cddadr(#0)") (get 'cddadr 'inline-safe))
  104. (push '((t) t nil nil "cdddar(#0)") (get 'cdddar 'inline-safe))
  105. (push '((t) t nil nil "cddddr(#0)") (get 'cddddr 'inline-safe))
  106. (push '((t) t nil nil "car(#0)") (get 'first 'inline-safe))
  107. (push '((t) t nil nil "cadr(#0)") (get 'second 'inline-safe))
  108. (push '((t) t nil nil "caddr(#0)") (get 'third 'inline-safe))
  109. (push '((t) t nil nil "cadddr(#0)") (get 'fourth 'inline-safe))
  110. (push '((t) t nil nil "cdr(#0)") (get 'rest 'inline-safe))
  111. (push '((t) t nil nil "CMPcar(#0)") (get 'car 'inline-unsafe))
  112. (push '((t) t nil nil "CMPcdr(#0)") (get 'cdr 'inline-unsafe))
  113. (push '((t) t nil nil "CMPcaar(#0)") (get 'caar 'inline-unsafe))
  114. (push '((t) t nil nil "CMPcadr(#0)") (get 'cadr 'inline-unsafe))
  115. (push '((t) t nil nil "CMPcdar(#0)") (get 'cdar 'inline-unsafe))
  116. (push '((t) t nil nil "CMPcddr(#0)") (get 'cddr 'inline-unsafe))
  117. (push '((t) t nil nil "CMPcaaar(#0)") (get 'caaar 'inline-unsafe))
  118. (push '((t) t nil nil "CMPcaadr(#0)") (get 'caadr 'inline-unsafe))
  119. (push '((t) t nil nil "CMPcadar(#0)") (get 'cadar 'inline-unsafe))
  120. (push '((t) t nil nil "CMPcaddr(#0)") (get 'caddr 'inline-unsafe))
  121. (push '((t) t nil nil "CMPcdaar(#0)") (get 'cdaar 'inline-unsafe))
  122. (push '((t) t nil nil "CMPcdadr(#0)") (get 'cdadr 'inline-unsafe))
  123. (push '((t) t nil nil "CMPcddar(#0)") (get 'cddar 'inline-unsafe))
  124. (push '((t) t nil nil "CMPcdddr(#0)") (get 'cdddr 'inline-unsafe))
  125. (push '((t) t nil nil "CMPcaaaar(#0)") (get 'caaaar 'inline-unsafe))
  126. (push '((t) t nil nil "CMPcaaadr(#0)") (get 'caaadr 'inline-unsafe))
  127. (push '((t) t nil nil "CMPcaadar(#0)") (get 'caadar 'inline-unsafe))
  128. (push '((t) t nil nil "CMPcaaddr(#0)") (get 'caaddr 'inline-unsafe))
  129. (push '((t) t nil nil "CMPcadaar(#0)") (get 'cadaar 'inline-unsafe))
  130. (push '((t) t nil nil "CMPcadadr(#0)") (get 'cadadr 'inline-unsafe))
  131. (push '((t) t nil nil "CMPcaddar(#0)") (get 'caddar 'inline-unsafe))
  132. (push '((t) t nil nil "CMPcadddr(#0)") (get 'cadddr 'inline-unsafe))
  133. (push '((t) t nil nil "CMPcdaaar(#0)") (get 'cdaaar 'inline-unsafe))
  134. (push '((t) t nil nil "CMPcdaadr(#0)") (get 'cdaadr 'inline-unsafe))
  135. (push '((t) t nil nil "CMPcdadar(#0)") (get 'cdadar 'inline-unsafe))
  136. (push '((t) t nil nil "CMPcdaddr(#0)") (get 'cdaddr 'inline-unsafe))
  137. (push '((t) t nil nil "CMPcddaar(#0)") (get 'cddaar 'inline-unsafe))
  138. (push '((t) t nil nil "CMPcddadr(#0)") (get 'cddadr 'inline-unsafe))
  139. (push '((t) t nil nil "CMPcdddar(#0)") (get 'cdddar 'inline-unsafe))
  140. (push '((t) t nil nil "CMPcddddr(#0)") (get 'cddddr 'inline-unsafe))
  141. (push '((t) t nil nil "CMPcar(#0)") (get 'first 'inline-unsafe))
  142. (push '((t) t nil nil "CMPcadr(#0)") (get 'second 'inline-unsafe))
  143. (push '((t) t nil nil "CMPcaddr(#0)") (get 'third 'inline-unsafe))
  144. (push '((t) t nil nil "CMPcadddr(#0)") (get 'fourth 'inline-unsafe))
  145. (push '((t) t nil nil "CMPcdr(#0)") (get 'rest 'inline-unsafe))
  146. (push '((t t) t nil nil "nth(fixint(#0),#1)")
  147.       (get 'nth 'inline-always))
  148. (push '((t t) t nil nil "nthcdr(fixint(#0),#1)")
  149.       (get 'nthcdr 'inline-always))
  150. (push '((t t) t nil nil "nth(fix(#0),#1)") (get 'nth 'inline-unsafe))
  151. (push '((t t) t nil nil "nthcdr(fix(#0),#1)")
  152.       (get 'nthcdr 'inline-unsafe))
  153. (push '((fixnum t) t nil nil "nth(#0,#1)") (get 'nth 'inline-always))
  154. (push '((fixnum t) t nil nil "nthcdr(#0,#1)")
  155.       (get 'nthcdr 'inline-always))
  156. (push '((t t) t nil t "make_cons(#0,#1)") (get 'cons 'inline-always))
  157. (push '(nil t nil nil "Cnil") (get 'list 'inline-always))
  158. (push '((t) t nil t "make_cons(#0,Cnil)") (get 'list 'inline-always))
  159. (push '((t t) t nil t list-inline) (get 'list 'inline-always))
  160. (push '((t t t) t nil t list-inline) (get 'list 'inline-always))
  161. (push '((t t t t) t nil t list-inline) (get 'list 'inline-always))
  162. (push '((t t t t t) t nil t list-inline) (get 'list 'inline-always))
  163. (push '((t t t t t t) t nil t list-inline) (get 'list 'inline-always))
  164. (push '((t t t t t t t) t nil t list-inline)
  165.       (get 'list 'inline-always))
  166. (push '((t t t t t t t t) t nil t list-inline)
  167.       (get 'list 'inline-always))
  168. (push '((t t t t t t t t t) t nil t list-inline)
  169.       (get 'list 'inline-always))
  170. (push '((t t t t t t t t t t) t nil t list-inline)
  171.       (get 'list 'inline-always))
  172. (push '((t) t nil nil "#0") (get 'list* 'inline-always))
  173. (push '((t t) t nil t "make_cons(#0,#1)") (get 'list* 'inline-always))
  174. (push '((t t t) t nil t list*-inline) (get 'list* 'inline-always))
  175. (push '((t t t t) t nil t list*-inline) (get 'list* 'inline-always))
  176. (push '((t t t t t) t nil t list*-inline) (get 'list* 'inline-always))
  177. (push '((t t t t t t) t nil t list*-inline)
  178.       (get 'list* 'inline-always))
  179. (push '((t t t t t t t) t nil t list*-inline)
  180.       (get 'list* 'inline-always))
  181. (push '((t t t t t t t t) t nil t list*-inline)
  182.       (get 'list* 'inline-always))
  183. (push '((t t t t t t t t t) t nil t list*-inline)
  184.       (get 'list* 'inline-always))
  185. (push '((t t t t t t t t t t) t nil t list*-inline)
  186.       (get 'list* 'inline-always))
  187. (push '((t t) t nil t "append(#0,#1)") (get 'append 'inline-always))
  188. (push '((t t) t t nil "nconc(#0,#1)") (get 'nconc 'inline-always))
  189. (push '((t) t nil t "reverse(#0)") (get 'reverse 'inline-always))
  190. (push '((t) t t t "nreverse(#0)") (get 'nreverse 'inline-always))
  191. (push '((t) fixnum nil nil "length(#0)") (get 'length 'inline-always))
  192. (push '((t t t) t nil nil "get(#0,#1,#2)") (get 'get 'inline-always))
  193. (push '((t t) t nil nil "get(#0,#1,Cnil)") (get 'get 'inline-always))
  194. (push '((t t t) t t nil "putprop(#0,#1,#2)")
  195.       (get 'system:putprop 'inline-always))
  196. (push '((t t) t t nil "remprop(#0,#1)") (get 'remprop 'inline-always))
  197. (push '((t t) t nil t "aref1(#0,fixint(#1))")
  198.       (get 'svref 'inline-always))
  199. (push '((t t) t nil t "elt(#0,fixint(#1))") (get 'char 'inline-always))
  200. (push '((t t) t nil t "elt(#0,fixint(#1))")
  201.       (get 'schar 'inline-always))
  202. (push '((t t) t nil t "elt(#0,fixint(#1))") (get 'elt 'inline-always))
  203. (push '((t fixnum) t nil t "aref1(#0,#1)") (get 'svref 'inline-always))
  204. (push '((t fixnum) t nil t "elt(#0,#1)") (get 'char 'inline-always))
  205. (push '((t fixnum) t nil t "elt(#0,#1)") (get 'schar 'inline-always))
  206. (push '((t fixnum) t nil t "elt(#0,#1)") (get 'elt 'inline-always))
  207. (push '((t t) t nil nil "(#0)->v.v_self[fix(#1)]")
  208.       (get 'svref 'inline-unsafe))
  209. (push '((t t) t nil nil "code_char((#0)->ust.ust_self[fix(#1)])")
  210.       (get 'char 'inline-unsafe))
  211. (push '((t t) t nil nil "code_char((#0)->ust.ust_self[fix(#1)])")
  212.       (get 'schar 'inline-unsafe))
  213. (push '((t t) t nil t "elt(#0,fix(#1))") (get 'elt 'inline-unsafe))
  214. (push '((t fixnum) t nil nil "(#0)->v.v_self[#1]")
  215.       (get 'svref 'inline-unsafe))
  216. (push '((t fixnum) character nil nil "(#0)->ust.ust_self[#1]")
  217.       (get 'char 'inline-unsafe))
  218. (push '((t fixnum) character nil nil "(#0)->ust.ust_self[#1]")
  219.       (get 'schar 'inline-unsafe))
  220. (push '((t t t) t t nil "aset1(#0,fixint(#1),#2)")
  221.       (get 'system:svset 'inline-always))
  222. (push '((t t t) t t nil "elt_set(#0,fixint(#1),#2)")
  223.       (get 'system:char-set 'inline-always))
  224. (push '((t t t) t t nil "elt_set(#0,fixint(#1),#2)")
  225.       (get 'system:schar-set 'inline-always))
  226. (push '((t t t) t t nil "elt_set(#0,fixint(#1),#2)")
  227.       (get 'system:elt-set 'inline-always))
  228. (push '((t fixnum t) t t nil "aset1(#0,#1,#2)")
  229.       (get 'system:svset 'inline-always))
  230. (push '((t fixnum t) t t nil "elt_set(#0,#1,#2)")
  231.       (get 'system:char-set 'inline-always))
  232. (push '((t fixnum t) t t nil "elt_set(#0,#1,#2)")
  233.       (get 'system:schar-set 'inline-always))
  234. (push '((t fixnum t) t t nil "elt_set(#0,#1,#2)")
  235.       (get 'system:elt-set 'inline-always))
  236. (push '((t t t) t t nil "((#0)->v.v_self[fix(#1)]=(#2))")
  237.       (get 'system:svset 'inline-unsafe))
  238. (push '((t t t) t t nil
  239.         "@2;((#0)->ust.ust_self[fix(#1)]=char_code(#2),(#2))")
  240.       (get 'system:char-set 'inline-unsafe))
  241. (push '((t t t) t t nil
  242.         "@2;((#0)->ust.ust_self[fix(#1)]=char_code(#2),(#2))")
  243.       (get 'system:schar-set 'inline-unsafe))
  244. (push '((t t t) t t nil "elt_set(#0,fix(#1),#2)")
  245.       (get 'system:elt-set 'inline-unsafe))
  246. (push '((t fixnum t) t t nil "(#0)->v.v_self[#1]= #2")
  247.       (get 'system:svset 'inline-unsafe))
  248. (push '((t fixnum character) character t nil
  249.         "(#0)->ust.ust_self[#1]= #2")
  250.       (get 'system:char-set 'inline-unsafe))
  251. (push '((t fixnum character) character t nil
  252.         "(#0)->ust.ust_self[#1]= #2")
  253.       (get 'system:schar-set 'inline-unsafe))
  254. (push '((t t) t nil t "aref1(#0,fixint(#1))")
  255.       (get 'aref 'inline-always))
  256. (push '((t t) t nil t "aref1(#0,fix(#1))") (get 'aref 'inline-unsafe))
  257. (push '((t fixnum) t nil t "aref1(#0,#1)") (get 'aref 'inline-always))
  258. (push '(((array t) fixnum) t nil nil "(#0)->v.v_self[#1]")
  259.       (get 'aref 'inline-unsafe))
  260. (push '(((array string-char) fixnum) character nil nil
  261.         "(#0)->ust.ust_self[#1]")
  262.       (get 'aref 'inline-unsafe))
  263. (push '(((array fixnum) fixnum) fixnum nil nil
  264.         "(#0)->fixa.fixa_self[#1]")
  265.       (get 'aref 'inline-unsafe))
  266. (push '(((array short-float) fixnum) short-float nil nil
  267.         "(#0)->sfa.sfa_self[#1]")
  268.       (get 'aref 'inline-unsafe))
  269. (push '(((array long-float) fixnum) long-float nil nil
  270.         "(#0)->lfa.lfa_self[#1]")
  271.       (get 'aref 'inline-unsafe))
  272. (push '((t t t) t nil t
  273.         "@0;aref(#0,fix(#1)*(#0)->a.a_dims[1]+fix(#2))")
  274.       (get 'aref 'inline-unsafe))
  275. (push '(((array t) fixnum fixnum) t nil nil
  276.         "@0;(#0)->a.a_self[#1*(#0)->a.a_dims[1]+#2]")
  277.       (get 'aref 'inline-unsafe))
  278. (push '(((array string-char) fixnum fixnum) character nil nil
  279.         "@0;(#0)->ust.ust_self[#1*(#0)->a.a_dims[1]+#2]")
  280.       (get 'aref 'inline-unsafe))
  281. (push '(((array fixnum) fixnum fixnum) fixnum nil nil
  282.         "@0;(#0)->fixa.fixa_self[#1*(#0)->a.a_dims[1]+#2]")
  283.       (get 'aref 'inline-unsafe))
  284. (push '(((array short-float) fixnum fixnum) short-float nil nil
  285.         "@0;(#0)->sfa.sfa_self[#1*(#0)->a.a_dims[1]+#2]")
  286.       (get 'aref 'inline-unsafe))
  287. (push '(((array long-float) fixnum fixnum) long-float nil nil
  288.         "@0;(#0)->lfa.lfa_self[#1*(#0)->a.a_dims[1]+#2]")
  289.       (get 'aref 'inline-unsafe))
  290. (push '((t t t) t t nil "aset1(#0,fixint(#1),#2)")
  291.       (get 'system:aset 'inline-always))
  292. (push '((t t t) t t nil "aset1(#0,fix(#1),#2)")
  293.       (get 'system:aset 'inline-unsafe))
  294. (push '((t fixnum t) t t nil "aset1(#0,#1,#2)")
  295.       (get 'system:aset 'inline-always))
  296. (push '(((array t) fixnum t) t t nil "(#0)->v.v_self[#1]= #2")
  297.       (get 'system:aset 'inline-unsafe))
  298. (push '(((array string-char) fixnum character) character t nil
  299.         "(#0)->ust.ust_self[#1]= #2")
  300.       (get 'system:aset 'inline-unsafe))
  301. (push '(((array fixnum) fixnum fixnum) fixnum t nil
  302.         "(#0)->fixa.fixa_self[#1]= #2")
  303.       (get 'system:aset 'inline-unsafe))
  304. (push '(((array short-float) fixnum short-float) short-float t nil
  305.         "(#0)->sfa.sfa_self[#1]= #2")
  306.       (get 'system:aset 'inline-unsafe))
  307. (push '(((array long-float) fixnum long-float) long-float t nil
  308.         "(#0)->lfa.lfa_self[#1]= #2")
  309.       (get 'system:aset 'inline-unsafe))
  310. (push '((t t t t) t t nil
  311.         "@0;aset(#0,fix(#1)*(#0)->a.a_dims[1]+fix(#2),#3)")
  312.       (get 'system:aset 'inline-unsafe))
  313. (push '(((array t) fixnum fixnum t) t t nil
  314.         "@0;(#0)->a.a_self[#1*(#0)->a.a_dims[1]+#2]= #3")
  315.       (get 'system:aset 'inline-unsafe))
  316. (push '(((array string-char) fixnum fixnum character) character t nil
  317.         "@0;(#0)->ust.ust_self[#1*(#0)->a.a_dims[1]+#2]= #3")
  318.       (get 'system:aset 'inline-unsafe))
  319. (push '(((array fixnum) fixnum fixnum fixnum) fixnum t nil
  320.         "@0;(#0)->fixa.fixa_self[#1*(#0)->a.a_dims[1]+#2]= #3")
  321.       (get 'system:aset 'inline-unsafe))
  322. (push '(((array short-float) fixnum fixnum short-float) short-float t
  323.         nil "@0;(#0)->sfa.sfa_self[#1*(#0)->a.a_dims[1]+#2]= #3")
  324.       (get 'system:aset 'inline-unsafe))
  325. (push '(((array long-float) fixnum fixnum long-float) long-float t nil
  326.         "@0;(#0)->lfa.lfa_self[#1*(#0)->a.a_dims[1]+#2]= #3")
  327.       (get 'system:aset 'inline-unsafe))
  328. (push '((t t) t t nil "princ(#0,#1)") (get 'princ 'inline-always))
  329. (push '((t) t t nil "princ(#0,Cnil)") (get 'princ 'inline-always))
  330. (push '((t t) t t nil "prin1(#0,#1)") (get 'prin1 'inline-always))
  331. (push '((t) t t nil "prin1(#0,Cnil)") (get 'prin1 'inline-always))
  332. (push '((t t) t t nil "print(#0,#1)") (get 'print 'inline-always))
  333. (push '((t) t t nil "print(#0,Cnil)") (get 'print 'inline-always))
  334. (push '((t) t t nil "terpri(#0)") (get 'terpri 'inline-always))
  335. (push '(nil t t nil "terpri(Cnil)") (get 'terpri 'inline-always))
  336. (push '((t t) t nil t "number_plus(#0,#1)") (get '+ 'inline-always))
  337. (push '((t) t nil t "one_plus(#0)") (get '1+ 'inline-always))
  338. (push '((t) t nil t "number_negate(#0)") (get '- 'inline-always))
  339. (push '((t t) t nil t "number_minus(#0,#1)") (get '- 'inline-always))
  340. (push '((t) t nil t "one_minus(#0)") (get '1- 'inline-always))
  341. (push '((t t) t nil t "number_times(#0,#1)") (get '* 'inline-always))
  342. (push '((t t) t nil t "number_expt(#0,#1)") (get 'expt 'inline-always))
  343. (push '((fixnum) fixnum nil nil "(#0)+1") (get '1+ 'inline-always))
  344. (push '((fixnum fixnum) fixnum nil nil "(#0)+(#1)")
  345.       (get '+ 'inline-always))
  346. (push '((fixnum) fixnum nil nil "(#0)-1") (get '1- 'inline-always))
  347. (push '((fixnum fixnum) fixnum nil nil "(#0)-(#1)")
  348.       (get '- 'inline-always))
  349. (push '((fixnum) fixnum nil nil "-(#0)") (get '- 'inline-always))
  350. (push '((fixnum fixnum) fixnum nil nil "(#0)*(#1)")
  351.       (get '* 'inline-always))
  352. (push '((fixnum fixnum) fixnum nil nil
  353.         "@01;(#0>=0&>0?(#0)/(#1):ifloor(#0,#1))")
  354.       (get 'floor 'inline-always))
  355. (push '((fixnum fixnum) fixnum nil nil
  356.         "@01;(#0>=0&>0?(#0)%(#1):imod(#0,#1))")
  357.       (get 'mod 'inline-always))
  358. (push '((fixnum fixnum) fixnum nil nil
  359.         (lambda (loc1 loc2)
  360.          (if (and (consp loc1) (eq (car loc1) 'fixnum-loc)
  361.                   (consp (cadr loc1)) (eq (caadr loc1) 'fixnum-value)
  362.                   (equal (caddr (cadr loc1)) 2))
  363.              (wt "(1<<(" loc2 "))")
  364.              (wt "fixnum_expt(" loc1 #\, loc2 #\)))))
  365.       (get 'expt 'inline-always))
  366. (push '((fixnum-float) short-float nil nil "(double)(#0)+1")
  367.       (get '1+ 'inline-always))
  368. (push '((fixnum-float fixnum-float) short-float nil nil
  369.         "(double)(#0)+(double)(#1)")
  370.       (get '+ 'inline-always))
  371. (push '((fixnum-float) short-float nil nil "(double)(#0)-1")
  372.       (get '1- 'inline-always))
  373. (push '((fixnum-float fixnum-float) short-float nil nil
  374.         "(double)(#0)-(double)(#1)")
  375.       (get '- 'inline-always))
  376. (push '((fixnum-float) short-float nil nil "-(double)(#0)")
  377.       (get '- 'inline-always))
  378. (push '((fixnum-float fixnum-float) short-float nil nil
  379.         "(double)(#0)*(double)(#1)")
  380.       (get '* 'inline-always))
  381. (push '((fixnum-float fixnum-float) short-float nil nil
  382.         "(double)(#0)/(double)(#1)")
  383.       (get '/ 'inline-always))
  384. (push '((fixnum-float) long-float nil nil "(double)(#0)+1")
  385.       (get '1+ 'inline-always))
  386. (push '((fixnum-float) long-float nil nil "(double)(#0)-1")
  387.       (get '1- 'inline-always))
  388. (push '((fixnum-float) long-float nil nil "-(double)(#0)")
  389.       (get '- 'inline-always))
  390. (push '((fixnum-float fixnum-float) long-float nil nil
  391.         "(double)(#0)+(double)(#1)")
  392.       (get '+ 'inline-always))
  393. (push '((fixnum-float fixnum-float) long-float nil nil
  394.         "(double)(#0)-(double)(#1)")
  395.       (get '- 'inline-always))
  396. (push '((fixnum-float fixnum-float) long-float nil nil
  397.         "(double)(#0)*(double)(#1)")
  398.       (get '* 'inline-always))
  399. (push '((fixnum-float fixnum-float) long-float nil nil
  400.         "(double)(#0)/(double)(#1)")
  401.       (get '/ 'inline-always))
  402. (push '((long-float) long-float nil nil "sin(#0)")
  403.       (get 'sin 'inline-always))
  404. (push '((long-float) long-float nil nil "cos(#0)")
  405.       (get 'cos 'inline-always))
  406. (push '((long-float) long-float nil nil "tan(#0)")
  407.       (get 'tan 'inline-always))
  408. (push '((t) boolean nil nil "number_compare(small_fixnum(0),#0)==0")
  409.       (get 'zerop 'inline-always))
  410. (push '((t) boolean nil nil "number_compare(small_fixnum(0),#0)<0")
  411.       (get 'plusp 'inline-always))
  412. (push '((t) boolean nil nil "number_compare(small_fixnum(0),#0)>0")
  413.       (get 'minusp 'inline-always))
  414. (push '((t t) boolean nil nil "number_compare(#0,#1)==0")
  415.       (get '= 'inline-always))
  416. (push '((t t) boolean nil nil "number_compare(#0,#1)!=0")
  417.       (get '/= 'inline-always))
  418. (push '((t t) boolean nil nil "number_compare(#0,#1)<0")
  419.       (get '< 'inline-always))
  420. (push '((t t) boolean nil nil "number_compare(#0,#1)>0")
  421.       (get '> 'inline-always))
  422. (push '((t t) boolean nil nil "number_compare(#0,#1)<=0")
  423.       (get '<= 'inline-always))
  424. (push '((t t) boolean nil nil "number_compare(#0,#1)>=0")
  425.       (get '>= 'inline-always))
  426. (push '((t t) t nil nil "@01;(number_compare(#0,#1)>=0?#0:#1)")
  427.       (get 'max 'inline-always))
  428. (push '((t t) t nil nil "@01;(number_compare(#0,#1)<=0?#0:#1)")
  429.       (get 'min 'inline-always))
  430. (push '((fixnum-float) boolean nil nil "(#0)==0")
  431.       (get 'zerop 'inline-always))
  432. (push '((fixnum-float) boolean nil nil "(#0)>0")
  433.       (get 'plusp 'inline-always))
  434. (push '((fixnum-float) boolean nil nil "(#0)<0")
  435.       (get 'minusp 'inline-always))
  436. (push '((fixnum-float fixnum-float) boolean nil nil "(#0)==(#1)")
  437.       (get '= 'inline-always))
  438. (push '((fixnum-float fixnum-float) boolean nil nil "(#0)!=(#1)")
  439.       (get '/= 'inline-always))
  440. (push '((fixnum-float fixnum-float) boolean nil nil "(#0)<(#1)")
  441.       (get '< 'inline-always))
  442. (push '((fixnum-float fixnum-float) boolean nil nil "(#0)<=(#1)")
  443.       (get '<= 'inline-always))
  444. (push '((fixnum-float fixnum-float) boolean nil nil "(#0)>(#1)")
  445.       (get '> 'inline-always))
  446. (push '((fixnum-float fixnum-float) boolean nil nil "(#0)>=(#1)")
  447.       (get '>= 'inline-always))
  448. (push '((fixnum fixnum) fixnum nil nil "@01;(#0)>=(#1)?#0:#1")
  449.       (get 'max 'inline-always))
  450. (push '((fixnum fixnum) fixnum nil nil "@01;(#0)<=(#1)?#0:#1")
  451.       (get 'min 'inline-always))
  452. (push '((t t) boolean nil nil "eql(#0,#1)")
  453.       (get 'char= 'inline-unsafe))
  454. (push '((t t) boolean nil nil "!eql(#0,#1)")
  455.       (get 'char/= 'inline-unsafe))
  456. (push '((t t) boolean nil nil "char_code(#0)==char_code(#1)")
  457.       (get 'char= 'inline-unsafe))
  458. (push '((t t) boolean nil nil "char_code(#0)!=char_code(#1)")
  459.       (get 'char/= 'inline-unsafe))
  460. (push '((character character) boolean nil nil "(#0)==(#1)")
  461.       (get 'char= 'inline-always))
  462. (push '((character character) boolean nil nil "(#0)!=(#1)")
  463.       (get 'char/= 'inline-always))
  464. (push '((character character) boolean nil nil "(#0)<(#1)")
  465.       (get 'char< 'inline-always))
  466. (push '((character character) boolean nil nil "(#0)<=(#1)")
  467.       (get 'char<= 'inline-always))
  468. (push '((character character) boolean nil nil "(#0)>(#1)")
  469.       (get 'char> 'inline-always))
  470. (push '((character character) boolean nil nil "(#0)>=(#1)")
  471.       (get 'char>= 'inline-always))
  472.